home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xtextitem.t < prev    next >
Text File  |  1990-06-01  |  803b  |  18 lines
  1. (herald xtextitem (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XTEXTITEM) (CONS 'XTEXTITEMP (MAKE-BYTEV 16)))
  3. (DEFINE (XTEXTITEM-CHARS X)
  4.         ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
  5.          (CHK-XTEXTITEMP X)
  6.          0))
  7. (DEFINE (XTEXTITEM-CHARS! X Y)
  8.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
  9.          (CHK-XTEXTITEMP X)
  10.          0
  11.          Y))
  12. (DEFINE (XTEXTITEM-NCHARS X) (MREF-INTEGER (CHK-XTEXTITEMP X) 4))
  13. (DEFINE (XTEXTITEM-NCHARS! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEMP X) 4 Y))
  14. (DEFINE (XTEXTITEM-DELTA X) (MREF-INTEGER (CHK-XTEXTITEMP X) 8))
  15. (DEFINE (XTEXTITEM-DELTA! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEMP X) 8 Y))
  16. (DEFINE (XTEXTITEM-FONT X) (MREF-INTEGER (CHK-XTEXTITEMP X) 12))
  17. (DEFINE (XTEXTITEM-FONT! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEMP X) 12 Y))
  18.